home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 98
/
Tiger_Disk_098_20xx_Tiger-Crew-Disk_de_Side_B.d64
/
130 -ende-
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
24 lines
10 printchr$(147):poke53280,11:s=54272:pokes+4,129:pokes+24,15:pokes+6,248
12 print"[147][151] aus lukian's nonsens-werkstatt ";:forz=1to1000:next:print"[147]":forc=1to11
15 pokes+5,9:poke53281,11 :::::::::::::::::::::: poke53281,. :gosub49
25 poke53280,11 :::::::::::::::::::::: poke53280,.:pokes+1,p+p :gosub49
26 poke53281,2 :::::::::::: poke53281,6 ::::::::: poke53281,.:
27 pokes+4,49:pokes+4,17:pokes+1,0+abs(p)
30 poke53280,2 :::::::::::: poke53280,6 ::::::::: poke53280,.:gosub49
40 poke53281,11 ::::::::::::::::::::: poke53281,.:pokes+1,p/9: next:goto65
49 forp= 9to10:poke214,p:sys58640:poke56325,2:pokes+4,128
50 print"[144] [161][161][161][161][161] [161] [161] [161][161][161][161] [161][161][161][161][161][144] "
51 print" [161] [161][161] [161] [161] [161] [161][144] "
52 print" [161][161][161][161] [161] [161] [161] [161] [161] [161][161][161][161][144] "
53 print" [161] [161] [161][161] [161] [161] [161][144] "
54 print" [161][161][161][161][161] [161] [161] [161][161][161][161] [161][161][161][161][161][144] ":poke56325,55:next
59 return
65 fori=1to4:fort=5to15:poke54296,t:poke54296,2:next:gosub70
66 forc=15to5step-.5:poke54296,c:poke54272,17:poke54273,c:poke54272,128:poke54296,0:next:next
67 end
70 forp= 9to10:poke214,p:sys58640:print"[155] [161][161][161][161][161] [161] [161] [161][161][161][161] [161][161][161][161][161] "
71 print"[154] [161] [161][161] [161] [161] [161] [161][144] "
72 print" [161][161][161][161] [161] [161] [161] [161] [161] [161][161][161][161][144] "
73 print"[156] [161] [161] [161][161] [161] [161] [161][144] "
74 print" [161][161][161][161][161] [161] [161] [161][161][161][161] [161][161][161][161][161][144] ":next:poke53281,11:return